#导入 JSON.ahk
主界面 := 界面.新建()
主界面.添加("文本","宽200 行2 名毒鸡汤文本 ","")
主界面.添加文本("宽200 行2 名舔狗日记文本","")
主界面.添加文本("宽200 行2 名情话文本","")
主界面.添加文本("宽200 行2 名土味情话文本","")
主界面.监听事件("关闭",(*) => 退出应用())
主界面.显示

主界面["毒鸡汤文本"].文本 :="123"


毒鸡汤:= Json.Load(网络请求("http://api.00mm.cc/一言/毒鸡汤"))["data"]
舔狗日记:= Json.Load(网络请求("http://api.00mm.cc/一言/舔狗日记"))["data"]
情话:= Json.Load(网络请求("http://api.00mm.cc/一言/渣男"))["data"]
土味情话:= Json.Load(网络请求("http://api.00mm.cc/一言/土味情话"))["data"]
托盘提示 "在关闭小键盘灯后 按 加 减 乘 除 使用o", "脚本已准备就绪"
;信息框 "在关闭小键盘灯后 按 加 减 乘 除 使用o","脚本已准备就绪"

主界面["毒鸡汤文本"].文本:=毒鸡汤
主界面["舔狗日记文本"].文本:=舔狗日记
主界面["情话文本"].文本:=情话
主界面["土味情话文本"].文本:=土味情话

小键盘加::{
如果 !获取按键状态("小键盘锁","T"){
	全局 情话,主界面
	发送文本 情话
	情话:= Json.Load(网络请求("http://api.00mm.cc/一言/渣男"))["data"]
	主界面["情话文本"].文本:=情话
}否则
	发送文本 "+"
}
小键盘减::{
如果 !获取按键状态("小键盘锁","T"){
	全局 毒鸡汤,主界面
	发送文本 毒鸡汤
	毒鸡汤:= Json.Load(网络请求("http://api.00mm.cc/一言/毒鸡汤"))["data"]
	主界面["毒鸡汤文本"].文本:=毒鸡汤
}否则
	发送文本 "-"
}
小键盘乘::{
如果 !获取按键状态("小键盘锁","T"){
	全局 土味情话,主界面
	发送文本 土味情话
	土味情话:= Json.Load(网络请求("http://api.00mm.cc/一言/土味情话"))["data"]
	主界面["土味情话文本"].文本:=土味情话
}否则
	发送文本 "*"
}
小键盘除::{
如果 !获取按键状态("小键盘锁","T"){
	全局 舔狗日记,主界面
	发送文本 舔狗日记
	舔狗日记:= Json.Load(网络请求("http://api.00mm.cc/一言/舔狗日记"))["data"]
	主界面["舔狗日记文本"].文本:=舔狗日记
}否则
	发送文本 "/"
}

网络请求(网址,请求方式:="GET", 编码 := "",数据:=""){
    网络组件:=组件对象创建("WinHttp.WinHttpRequest.5.1")
 
    尝试
    {
        网络组件.Open(请求方式,网址,False)
        网络组件.SetRequestHeader("Content-Type", "application/json")
        网络组件.Send(数据)
    }
    捕获 e
        返回 -1
 
    如果 (编码 && 网络组件.ResponseBody)
    {
        流组件 := 组件对象创建("adodb.stream")
        流组件.Type := 1
        流组件.Mode := 3
        流组件.Open()
        流组件.Write(hObject.ResponseBody)
        流组件.Position := 0
        流组件.Type := 2
        流组件.Charset := 编码
        返回值:=oADO.ReadText()
	流组件.Close()
	返回 返回值
    }
    返回 网络组件.ResponseText
}

